100 print "START!"
200 for i = 0 to 300
300 for j = i to 300
400 gosub SUBR%
500 next j
600 next i
998 print "STOP!"
999 end
1000 proc SUBR%
1100 let k = 2 * (i + j)
1200 let k = k - 1
1250 REM print i "," j "," k
1300 if k >= 0 then goto 1200
1400 return
list
run
